(Fdefine_key): Check for non-events in keyvector.

diff --git a/src/keymap.c b/src/keymap.c
index ed84063bcd3126355c66bed6b211dc0c329acff5..1b2336562f2fa90ffc56063a1139395a90acd3c0 100644 (file)
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -616,6 +616,9 @@ the front of KEYMAP.")
          idx++;
        }
 
+      if (! INTEGERP (c) && ! SYMBOLP (c) && ! CONSP (c))
+       error ("Key sequence contains illegal events");
+
       if (idx == length)
        RETURN_UNGCPRO (store_in_keymap (keymap, c, def));